\begin{tabbing}
(\=(Auto$\cdot$) \+
\\[0ex]CollapseTHEN (((Ext) 
\\[0ex]CollapseTHEN (((Auto$\cdot$) 
\\[0ex]CollapseTHEN (((RepUR ``
\-\\[0ex]p\={-}compose can{-}apply do{-}apply`` ( 0)$\cdot$) \+
\\[0ex]CollapseTHEN ((if (((first\_nat 2:n
\-\\[0ex])) = 0) then (Repeat (((((GenConclAtAddr [3;1;1]) 
\\[0ex]C\=ollapseTHENA (Auto$\cdot$))$\cdot$) \+
\\[0ex]
\\[0ex]CollapseTHEN (((D ({-}2)$\cdot$) 
\\[0ex]CollapseTHEN (((Reduce 0) 
\\[0ex]CollapseTHEN ((Try ((Complete (
\-\\[0ex]Auto$\cdot$))$\cdot$))$\cdot$))$\cdot$))$\cdot$))$\cdot$)) else (RepeatFor (first\_nat 2:n) (((((GenConclAtAddr [3;1;1]) 
\\[0ex]
\\[0ex]C\=ollapseTHENA (Auto$\cdot$))$\cdot$) \+
\\[0ex]CollapseTHEN (((D ({-}2)$\cdot$) 
\\[0ex]CollapseTHEN (((Reduce 0) 
\\[0ex]
\\[0ex]CollapseTHEN ((Try ((Complete (Auto$\cdot$))$\cdot$))$\cdot$))$\cdot$))$\cdot$))$\cdot$)))$\cdot$))$\cdot$))$\cdot$))$\cdot$))$\cdot$
\-
\end{tabbing}